home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 026a / upsmft.zip / HEADER.BAK < prev    next >
Text File  |  1991-09-19  |  2KB  |  113 lines
  1. USE SHIPMAST           
  2. ACCEPT "DATE SHIPPED:" TO A
  3. ACCEPT "UPS PICK-UP RECORD NUMBER:"TO B
  4. **************************************** VARIABLES *********
  5. X=0                      
  6. LB=0
  7. SC=0
  8. CC=0
  9. CA=0
  10. DV=0
  11. BB=0
  12. SS=0
  13. C1=0
  14. AA=0
  15. VV=0
  16. *************************************************************   
  17. SET DEVICE TO SCREEN
  18. @1,1 SAY "DATE SHIPPED:"
  19. @1,17 SAY A
  20. @1,55 SAY "AUTOMATED BUSINESS SERVICES"
  21. @1,95 SAY "UPS SHIPPER NUMBER:PA123-456"
  22. @2,55 SAY "BOX 301"
  23. @2,95 SAY "UPS PICK-UP RECORD NUMBER:"
  24. @2,123 SAY B
  25. @3,55 SAY "PINE GROVE MILLS, PA 16868"
  26. @5,1 SAY "INVOICE       CONSINGEE  CONSIGNEE                 ì
  27. CITY           STATE ZIP     ZONE  WT  CHGS   COD     COD  O/S  ì
  28. DEì
  29. CLARED AOD"
  30. @6,1 SAY "NUMBER        NAME       ADDRESS     ì
  31.                                                             CHGS   ì
  32. ì
  33. ì
  34.  AMT       VALUE     "ì
  35.  
  36. DO WHILE .NOT. EOF() 
  37. @8+X,1 SAY INVNO
  38. @8+X,15 SAY LAST
  39. @8+X,26 SAY SHADDRESS
  40. @8+X,52 SAY SHCITY
  41. @8+X,69 SAY SHSTATE
  42. @8+X,73 SAY SHZIP
  43. @8+X,82 SAY ZONE
  44. @8+X,86 SAY POUNDS
  45. @8+X,89 SAY SHIPCHARGE
  46. @8+X,96 SAY CODCHARGE
  47. @8+X,104 SAY CODAMT   
  48. @8+X,111 SAY OVERSIZED
  49. @8+X,114 SAY DECVALUE      
  50. @8+X,124 SAY AOD
  51. X=X+1
  52. IF X>99 
  53. ***************************** SUBTOTALS******************
  54. LB=LB+POUNDS
  55. SC=SC+SHIPCHARGE
  56. CC=CC+CODCHARGE
  57. CA=CA+CODAMT
  58. DV=DV+DECVALUE
  59.   @8+X+2,8 SAY "SUBTOTALS"
  60.   @8+X+2,20 SAY "POUNDS:"
  61.   @8+X+2,23 SAY LB
  62.   @8+X+2,40 SAY "CHARGES:"
  63.   @8+X+2,45 SAY SC
  64.   @8+X+2,65 SAY "COD CHARGES:"
  65.   @8+X+2,70 SAY CC
  66.   @8+X+2,85 SAY "COD AMOUNT:"
  67.   @8+X+2,90 SAY CA
  68.   @8+X+2,105 SAY "DECLARED VALUE:"
  69.   @8+X+2,117 SAY DV
  70.   @8+X+4,8 SAY " "
  71.   X=0
  72.  BB=BB+LB
  73.  SS=SS+SC
  74.  C1=C1+CC
  75.  AA=AA+CA
  76.  VV=VV+DV         
  77.  LB=0
  78.  SC=0
  79.  CC=0
  80.  CA=0
  81.  DV=0
  82.  SKIP
  83. *****************************************************************
  84. ELSE
  85. LB=POUNDS+LB
  86. SC=SHIPCHARGE+SC
  87. CC=CODCHARGE+CC
  88. CA=CODAMT+CA    
  89. DV=DECVALUE+DV 
  90. SKIP        
  91. ENDIF
  92. ENDDO
  93. BB=BB+LB
  94. SS=SS+SC
  95. C1=C1+CC
  96. AA=AA+CA
  97. VV=VV+DV
  98. ************************ TOTALS *********************************
  99. @8+X+2,8 SAY "TOTALS"
  100. @8+X+2,20 SAY "POUNDS:"
  101. @8+X+2,23 SAY BB           
  102. @8+X+2,40 SAY "CHARGES:" 
  103. @8+X+2,45 SAY SS        
  104. @8+X+2,65 SAY "COD CHARGES:"
  105. @8+X+2,70 SAY C1
  106. @8+X+2,85 SAY "COD AMOUNT:"
  107. @8+X+2,90 SAY AA
  108. @8+X+2,105 SAY "DECLARED VALUE:"
  109. @8+X+2,117 SAY VV
  110. @8+X+4,8 SAY " "
  111. SET DEVICE TO SCREEN
  112. RETURN
  113.